Problem 1

Chart A

## Warning: Ignoring 615 observations

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

Chart B

# Plot scores for WaHi/Inwood bakeries
wahi_bakery <- bakery_inspec %>%
  group_by(dba) %>%
  filter(zipcode %in% c("10031", "10032", "10033", "10034", "10040"))

Chart C

nyc_inspections %>%
  filter(boro != "Missing") %>% 
  plot_ly(x = ~boro, y=~score, color = ~critical_flag, type = "bar")

## Warning: Ignoring 22346 observations

nyc_inspections %>%
  filter(boro != "Missing") %>%
  plot_ly(y=~score, color = ~boro, type = "box")

## Warning: Ignoring 22346 observations

Chart D

#count number per grade per boro
nyc_inspections %>%
  filter(boro != "Missing") %>%
  filter(grade %in% c("A", "B", "C")) %>%
  plot_ly(x = ~boro, y=~score, color = ~grade, type = "bar")

## Warning: Ignoring 3 observations